home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 8 / QRZ Ham Radio Callsign Database - Volume 8.iso / pc / files / dsp / 56000tar.z / 56000tar / 56000 / lattice / latfir1.asm next >
Assembly Source File  |  1992-04-28  |  1KB  |  42 lines
  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; 
  6. ; Lattice FIR Filter Macro.
  7. ; 
  8. ; Last Update 08 Aug 86   Version 1.0
  9. ;
  10. latfir1 macro   order
  11. latfir1 ident   1,0
  12. ;
  13. ;       LATTICE FIR
  14. ;
  15. ;       Lattice FIR filter macro
  16. ;
  17. ;       Input value in register B, output value in register B.
  18. ;
  19. ;       Macro call:     latfir1 order
  20. ;               order   - order of filter (number of K coefficients)
  21. ;
  22. ;       Alters Data ALU Registers:
  23. ;       x0      y0      y1      a       b
  24. ;
  25. ;       Alters Address Registers:
  26. ;       r0      r4
  27. ;
  28. ;       Alters Program Control Registers:
  29. ;       pc      sr
  30. ;
  31. ;       Uses 2 locations on stack
  32. ;
  33. ;
  34.   move           b,x:(r0)+    y:(r4)+,y0  ;sv B as fst st., mv fst k
  35.   do    #order,_endlat
  36.   move           x:(r0),a     b,y1        ;get state, set t for mul by k
  37.   macr  y1,y0,a  a,x0                     ;t*k+s, copy s
  38.   macr  x0,y0,b  a,x:(r0)+    y:(r4)+,y0  ;s*k+t, sv st., nxt k
  39. _endlat
  40.   move           (r0)-                         ;adjust pointer
  41.   endm
  42.